(momentary-string-display): Handle any event when flushing the display.

diff --git a/lisp/subr.el b/lisp/subr.el
index 49aa6f3a90c7c54fdbf4c8342e472bed2abe4b8f..27ddcf3109555a16c3a554f05d368ab8af4c9515 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -348,7 +348,7 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
            (setq insert-end (point)))
          (message (or message "Type %s to continue editing.")
                   (single-key-description exit-char))
-         (let ((char (read-char)))
+         (let ((char (read-event)))
            (or (eq char exit-char)
                (setq unread-command-events (list char)))))
       (if insert-end